Sub 통합하기()
    Dim ws As Worksheet
    Dim destSheet As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    Dim destLastRow As Long

    ' "통합 데이터" 시트 생성
    On Error Resume Next ' 이미 존재하는 경우 에러 무시
    Set destSheet = ThisWorkbook.Sheets("통합 데이터")
    If destSheet Is Nothing Then
        Set destSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        destSheet.Name = "통합 데이터"
    End If
    On Error GoTo 0

    ' 첫 번째 시트의 헤더 복사
    ThisWorkbook.Sheets(1).Rows(1).Copy Destination:=destSheet.Rows(1)

    ' 모든 시트 탐색
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "통합 데이터" Then ' 통합 데이터 시트는 제외
            With ws
                ' 데이터가 있는 마지막 행 찾기
                lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

                ' 데이터 범위 설정 (2행부터 마지막 행까지, A열에서 H열까지)
                Set dataRange = .Range("A2:H" & lastRow)

                ' 통합 데이터 시트에 데이터 복사
                destLastRow = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row + 1
                dataRange.Copy Destination:=destSheet.Range("A" & destLastRow)
            End With
        End If
    Next ws

    ' 결과 메시지
    MsgBox "모든 시트의 데이터가 '통합 데이터' 시트에 통합되었습니다.", vbInformation
End Sub